lappend auto_path "../../lib/tcllib-1.10/modules"

package require Ttk
package require snit

source ScrolledText.tcl
source ButtonBox.tcl

proc MainWindow.create {} {
  set window .
  set notebook [ttk::notebook $window.notebook -padding 10]
  set panedWindow [ttk::panedwindow $notebook.panedWindow -orient horizontal]
  set leftFrame [ttk::labelframe $panedWindow.leftFrame -text "Classes"]
  set rightFrame [ttk::labelframe $panedWindow.rightFrame -text "Class Memo"]
  set listBox [ttk::treeview $leftFrame.courseList -show headings \
      -columns {Course}]
      $listBox heading Course -text "Course"
  set classMemo [ScrolledText $rightFrame.classMemo]
  set rightButtonBox [ButtonBox $rightFrame.rightButtonBox -align right \
    -padding {0 5 0 0}]

  $rightButtonBox add "Save"
  $rightButtonBox add "Cancel"

  $listBox insert {} end -values {zaraz}

  pack $listBox
  pack $classMemo -fill both -expand yes
  pack $rightButtonBox -fill x
  $panedWindow add $leftFrame
  $panedWindow add $rightFrame
  $notebook add $panedWindow -text "Query"


  set aboutFrame [ttk::labelframe $notebook.aboutFrame -text "Agenda '09"]
  set aboutMessage [ttk::label $aboutFrame.aboutMessage -text "esta haoads\nzaraza fsd\nhoadf"]

  pack $aboutMessage

  $notebook add $aboutFrame -text "About"


  pack $notebook -fill both -expand yes

}

MainWindow.create

